;; (PV_PhaseShift buffer shift)

;; Add `shift' to the phase component of every bin at `buffer'.

(define b (buffer-alloc 2048 1 #t))

(IFFT.ar (PV_PhaseShift.kr (FFT.kr (buffer-id b) 
				   (WhiteNoise.ar 0.1))
			   (MouseX.kr 0 1)))

(buffer-free b)

